home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / gear / paint / circle.txt < prev    next >
Text File  |  1993-11-30  |  394b  |  18 lines
  1. C=1
  2. MOUSE 0 : MOUSE 1,10,10,1
  3. MOUSE 4,0,0,639,399
  4.    LINE (0,0)-(639,399),PSET,6,B
  5. *B
  6. IF MOUSE(2,0)=-1 THEN IX1=MOUSE(0):IY1=MOUSE(1):GOTO *A
  7. GOTO *B
  8. *A
  9.  IX2=MOUSE(0):IY2=MOUSE(1)
  10. 'if mouse(2,0)=-1 then line(IX1,IY1)-(IX2,IY2),pset,C
  11.  B=IX2-IX1
  12.  IF B<3  THEN B=3
  13.  IF MOUSE(2,0)=-1 THEN CIRCLE@(IX1,IY1),B,C,,,,F
  14.  IF MOUSE(2,1)=-1 THEN GOTO 20
  15.  C=C+1
  16.  IF C>7 THEN C=1
  17.  GOTO *A
  18.